home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / MISSILE.TCL < prev    next >
Encoding:
Text File  |  2002-04-23  |  3.4 KB  |  123 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Missile
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #               09-Aug-2000 floh    Missile-Aufschlag-Explosion (.iscollided)
  9. #                                16-Jan-2002 peter   Swarm-Missile spezifisches Zeug
  10. #
  11. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  12. #
  13.  
  14. # --------------------------------------------------------
  15. #                     R A K E T E N
  16. # --------------------------------------------------------
  17. proc swarmmissilewatch_normal {} {
  18.         if {[.iscollided] == "true"} {
  19.         .announcestate explode
  20.     } elseif {[.isstatetimeover] == "true"} {
  21.         .announcestate attack
  22.     } elseif {[.hastargetchanged] == "true"} {
  23.         .selectnewcommandlist /commandlists/missile/goto
  24.     }
  25. }
  26.  
  27. proc missilewatch_normal {} {
  28.  
  29.     if {[.iscollided] == "true"} {
  30.         .announcestate explode
  31.     } elseif {[.isstatetimeover] == "true"} {
  32.         .announcestate burn
  33.     } elseif {[.hastargetchanged] == "true"} {
  34.         .selectnewcommandlist /commandlists/missile/goto
  35.     } 
  36. }
  37.  
  38. proc missilewatch_explode {} {
  39.  
  40.     if {[.isanimfinished] == "true"} {
  41.         .setremoveable true
  42.     }
  43. }
  44.  
  45. proc missilewatch_burn {} {
  46.  
  47.     if {[.isanimfinished] == "true"} {
  48.         .setremoveable true
  49.     }
  50. }
  51.  
  52. proc missilewatch_cinematic {} {
  53.  
  54.     # empty
  55. }    
  56.  
  57. #-------------------------------------------------------------------------------
  58. #   Spell-Action-Routinen
  59. #   =====================
  60. #   Eigentlich nicht genau der richtige Platz dafuer, ein richtiger 
  61. #   "Spellaction" Objekt Prototyp waere besser, der letztenendes eine
  62. #   Missile erzeugt.
  63. #-------------------------------------------------------------------------------
  64.  
  65. #-------------------------------------------------------------------------------
  66. #   summon_3dd
  67. #   ==========
  68. #   Summon 3 Doppeldecker.
  69. #-------------------------------------------------------------------------------
  70. proc summon_3dd {} {
  71.     
  72.     set clan [/world.getuserclan]
  73.     set maennel [$clan.getmaennel]
  74.     
  75.     if {"null" != $maennel} {
  76.     
  77.         set obj [$clan.createvehicle g_scout01]
  78.         $obj.alignvehicle $maennel -15 5 -30  0  10 0
  79.     
  80.         set obj [$clan.createvehicle g_scout01]
  81.         $obj.alignvehicle $maennel +15 5 -30  0   0 0
  82.     
  83.         set obj [$clan.createvehicle g_scout01]
  84.         $obj.alignvehicle $maennel   0 5 -40  0 -10 0
  85.     }
  86. }
  87.    
  88.     
  89. #-------------------------------------------------------------------------------
  90. #   summon_1_g_scout01
  91. #   ==========
  92. #   Summon 1 g_scout
  93. #-------------------------------------------------------------------------------
  94. proc summon_1_g_scout01 {} {
  95.     
  96.     set clan [/world.getuserclan]
  97.     set maennel [$clan.getmaennel]
  98.     
  99.     if {"null" != $maennel} {
  100.        
  101.         set obj [$clan.createvehicle g_scout01]
  102.         $obj.alignvehicle $maennel 0 10 -20  0 0 0
  103.     }
  104. }     
  105.     
  106.     
  107. #-------------------------------------------------------------------------------
  108. #   summon_1_p_shark_tut
  109. #   ==========
  110. #   1 tutorial-shark heraufbeschw÷ren
  111. #-------------------------------------------------------------------------------
  112. proc summon_p_shark_tut {} {
  113.     
  114.     set clan [/world.getuserclan]
  115.     set maennel [$clan.getmaennel]
  116.     
  117.     if {"null" != $maennel} {
  118.     
  119.         set obj [$clan.createvehicle p_shark_tut]
  120.         $obj.alignvehicle $maennel 0 10 -20  0 0 0
  121.     }
  122. }
  123.